STAT 380 Final Project

library(mdsr)
library(readr)
library(dplyr)

# Reading in Terrorism 
terrorism <- read.table(unz("globalterrorismdb_0718dist.csv.zip", "globalterrorismdb_0718dist.csv"), nrows=181692, header=T, fill =T, quote="\"", sep=",")

econData <- read.csv("WEO_Data.csv")

head(terrorism)

head(econData)

terrorism %>%
  group_by(country_txt) %>%
  summarise(count = n()) %>%
  arrange(desc(count))

terrorism %>%
  sample(5000) %>%
  ggplot(aes(x = longitude, y = latitude)) +
  geom_point()

terrorism %>%
  filter(country_txt == "United States") %>%
  filter(longitude < 0) %>%
  filter(nkillus > 0) %>%
  ggplot(aes(x = longitude, y = latitude)) +
  geom_point(aes(color = nkillus))

terrorism %>%
  inner_join()